Imports Microsoft.VisualBasic

Public Class Mensaje

    Private _id As String
    Private _asunto As String
    Private _prioridad As String
    Private _cuerpo As String
    Private _fkUsuario As String
    Private _remitente As String
    Private _fecha As String

    Public Sub New(ByVal id As String, ByVal asunto As String, ByVal prioridad As String, ByVal cuerpo As String, ByVal fkUsuario As String, ByVal remite As String, ByVal fecha As String)
        Me._id = id
        Me._asunto = asunto
        Me._prioridad = prioridad
        Me._cuerpo = cuerpo
        Me._fkUsuario = fkUsuario
        Me._remitente = remite
        Me._fecha = fecha
    End Sub

    Public Property fecha() As String
        Get
            Return _fecha
        End Get

        Set(ByVal value As String)
            _fecha = value
        End Set
    End Property

    Public Property Remitente() As String
        Get
            Return _remitente
        End Get

        Set(ByVal value As String)
            _remitente = value
        End Set
    End Property

    Public Property id() As String
        Get
            Return _id
        End Get

        Set(ByVal value As String)
            _id = value
        End Set
    End Property

    Public Property Asunto() As String
        Get
            Return _asunto
        End Get

        Set(ByVal value As String)
            _asunto = value
        End Set
    End Property

    Public Property Prioridad() As String
        Get
            Return _prioridad
        End Get

        Set(ByVal value As String)
            _prioridad = value
        End Set
    End Property

    Public Property Cuerpo() As String
        Get
            Return _cuerpo
        End Get

        Set(ByVal value As String)
            _cuerpo = value
        End Set
    End Property

    Public Property FkUsuario() As String
        Get
            Return _fkUsuario
        End Get

        Set(ByVal value As String)
            _fkUsuario = value
        End Set
    End Property


End Class
